home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / util / rexx / rmh.lha / rmh / examples / tz.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  2000-11-28  |  270 b   |  12 lines
  1. /* GetTZ() example */
  2.  
  3. l="rmh.library";if ~show("L",l) then;if ~addlib(l,0,-30) then exit
  4.  
  5. if GetTZ("TZ") then do
  6.     say "Timeznone:      " tz.tzstn
  7.     say "Timezone offset:" tz.timezone
  8.     if tz.daylight then say "Daylight:       " tz.tzdtn
  9. end
  10. else say "Can't find ENV:TZ"
  11.  
  12.